Ofs                      Returns Segment Offset Address of a Variable

 Ofs(var Item) : Integer;

    Returns the offset address within the segment for Item.

            Item    Any variable, procedure, or function; can be an array
                    element or record field; can also be a pointer, if
                    referenced, e.g, Ofs(Item^).

           Note:    If Item is a variable, the offset address is relative
                    to the data segment (DS); if Item is the name of a
                    procedure or function, the offset address is relative
                    to the code segment (CS).

  -------------------------------- Example ---------------------------------

           Offset  := Ofs(I);       { Get the offset within the segment }
           Segment := Seg(I);       { Get the segment }